دستور if در اکسس را اصولی یاد بگیرید +فیلم آموزشی
سلام به یکی دیگر از آموزش های سایت سافت پلاس در زمینه برنامه نویسی VBA خوش آمدید .
ما در زبان برنامه نویسی وی بی ای با دستورات زیادی سرو کار داریم . دستوراتی که در این زبان برنامه نویسی قرار دارند را می توان به دو دسته کلی تقسیم کرد .
یک سری از دستورات هستند که کار یا کارهای خاصی را برای ما انجام می دهند و در این بین نیاز به هیچ گونه اطلاعات اضافه ای از طرف ما ندارند .
مثلا دستور Close در یک فرم به راحتی اسم یک فرم را از ما گرفته و فرم مربوطه را برای ما می بندد .
اما بعضی از مواقع هست که برای انجام یک کار خاص از طرف برنامه باید یک سری از شرایط فراهم شوند . بعد متناسب با اینکه کدام شرط از مجموع این شرطها برقرار شده است یک یا چند کار خاص توسط برنامه برای ما انجام می شود .
ما برای مدیریت کردن این نوع از کارها معمولا از دستوراتی استفاده می کنیم که از آنها تحت عنوان ساختارهای تصمیم در برنامه نویسی اسم می بریم .
این ساختارها در تصمیم متوع هستند اما دو تا از معروفترین آنها ساختار Select case و دستور شرطی If هستند .
در خصوص دستور Select case در برنامه نویسی VBA در مطلب جداگانه ای با عنوان چگونه به سادگی از Select case استفاده کنیم بصورت مفصل صحبت کرده ایم .
اما امروز و در این مطلب می خواهیم با هم راجع به دستور IF با هم صحبت کنیم .
دستوری که اتفاقا یکی از عبارت های بسیار مهم و کاربردی در زبان برنامه نویسی VBA می باشد .
در این پست آموزشی می خواهیم به طور کامل به بررسی این عبارت پرداخته و با حالات مختلف این عبارت آشنا شویم .
و در انتهای همین مطلب با یک مثال کاربردی با نحوه استفاده از آن در محیط اکسس آشنا خواهیم شد .
ساختار دستور if در اکسس و برنامه نویسی VBA
عبارت IF یکی از دستورات پرکار برد در برنامه نویسی VBA می باشد .
با استفاده از این عبارت ما می توانیم به بررسی یک یا چند شرط پرداخته و با تجزیه و تحلیل نتایج حاصل از آن از برنامه بخواهیم که کار خاصی را انجام بدهد .
واقعیت امر این است که ما در زندگی روزمره خود نیز با موقعیت های مختلف سر و کار داریم که انجام دادند و یا ندادن کارهای خاص را مشروط به بعضی از شرایط می نماییم.
به عنوان مثال به عبارت های شرطی زیر توجه نمایید:
– اگر فردا باران ببارد با خود چتر خواهم برد و گر نه نیازی به این کار نیست .
-اگر فردا تعطیل باشد به مسافرت خواهم رفت و گر نه در خانه خواهم ماند .
-اگر فرصت کافی داشته باشند مطالعه کنم و گر نه باید کارهای عقب مانده ام را انجام دهم .
اینها تنها سه نمونه از انواع موقعیتهای شرطی بود که در زندگی روزمره با آنها سر و کار داریم
در تمامی این موارد انجام شدن یک کار منوط به فراهم آمدن شرایط آن شده است.
در دنیای برنامه نویسی وی بی ای نیز می توانیم با استفاده از عبارت های شرطی شرایطی را تعریف نماییم که اگر این شرایط مهیا باشند برنامه برای ما کار خاصی را انجام بدهد و یا از انجام کار خاصی صرفنظر نماید
برای شبیه سازی موقعیت های شرطی در در برنامه نویسی VBA میتوانیم از عبارت شرطی if استفاده نماییم
ساختار فرمول کلی عبارت if به قرار زیر است .
همانگونه که ملاحظه می نمایید این عبارت از دو قسمت مجزا تشکیل شده است.
در قسمت اول ما در ستی یک شرط را بررسی میکنیم که اگر بر قرار باشد به برنامه می گوییم کار خاصی را انجام بدهد
در بخش دوم عبارت که با کلمه کلیدی Else آغاز می شود برنامه را برای انجام کاری آماده می نماییم که شرط مورد نظر ما برقرار نباشد.
بررسی عبارت IF با یک مثال ساده
بیایید با هم یک مثال ساده عملکرد دستور if در اکسس را بررسی نماییم .
به فرم زیر دقت نمایید .
در این فرم یک تکس باکس و یک برچسب قرار داده شده است .
نام تکس باکس مورد نظر را txt-1 نام برچسب خود را lbl-1 تعریف می نماییم .
در این تکس باکس می خواهیم نمرات فرضی را برای چند دانش آموز وارد کنیم .
حال می خواهیم کدی بنویسیم که با استفاده از آن نمرات وارد شده در این تکس باکس را از لحاظ قبول و یا مردود بودن نمرات تفسیر نماییم .
برای این منظور کدهای زیر را در رویداد مربوط به On click دکمه خود وارد می نماییم .
اکنون فرم خود را باز نموده و با وارد کردن نمرات مختلف در تکس باکس خود و زدن دکمه موجود بر روی فرم خود نتایج را مشاهده نمایید .
این مثالی ساده از نحوه کنترل جریان برنامه با استفاده از عبارت شرطی بود در ویدئو زیر هم می توانید مثال دیگری از کار با دستور if در اکسس را یادبگیرید .
اجازه بدهید با هم مثالی دیگر را بررسی نماییم تا ببینیم که چگونه می توانیم از این دستور کاربردی استفاده های بیشتری ببریم .
ایجاد قابلیت انیمیشن در متن با استفاده از دستور IF……ELSE
در این مثال می خواهیم با استفاده از قابلیت IF……ELSE امکانی را فراهم آوریم که در صورت قبول شدن فرد مورد نظر ما در مثال بالا متنی که قرار است برای وی به نمایش در آید حاوی یک افکت انیمیشن باشد .
برای این منظور مراحل زیر را دنبال نمایید .
۱٫ ابتدا فرم خود را طبق مراحل توضیح داده شده در مثال قبلی ایجاد نمایید .
۲٫در رویداد مربوط به کلیک دکمه موجود در فرم خود کدهای زیر را وارد نمایید .
Dim i As Integer
Dim anim As String
()Private Sub cmd_1_Click
If Me.txt_1 >= 10 Then
“تبریک شما قبول شده اید”=Me.lbl_1.Caption
Else
If Me.txt_1 < 10 Then
“متاسفانه شما مردود شده اید “=Me.lbl_1.Caption
End If
End If
i = 0
anim = Me.lbl_1.Caption
Then “تبریک شما قبول شده اید”=If anim
Me.TimerInterval = 300
Else
Me.TimerInterval = 0
End If
End Sub
۳٫ در رویداد مربوط به Load فرم خود نیز کدهای زیر را وارد نمایید .
()Private Sub Form_Timer
If i < Len(anim) Then
i = i + 1
(Me.lbl_1.Caption = Left(anim, i
Else: i = 0
End If
(Me.lbl_1.ForeColor = RGB(85 + CInt(Rnd() * 300), 110 + CInt(Rnd() * 100), 0
End Sub
اکنون کافی است به محیط فرم خود رفته و با درج عددی بالاتر از ۱۰ بر روی دکمه موجود در فرم خود کلیک نموده و نتیجه را مشاهده نمایید .
تصویر زیر نتیجه این کار را نمایش می دهد .
آنچه که در این مطلب به آن پرداختیم آشنایی با دستور if در اکسس و نحوه کاربرد آن در کد نویسی VBA بود.
دیدگاهتان را بنویسید